home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
alphsort.src
< prev
next >
Wrap
Text File
|
1990-10-17
|
299b
|
17 lines
%%HP: T(3);
@ by Kevin Jessup.
@ used by DSORT; see DSORT.DOC.
\<< DUP SIZE 1 - 1
FOR j 1 j
FOR k k GETI \-> n1
\<< GETI \-> n2
\<< DROP
IF n1 \->STR n2 \->STR >
THEN k n2 PUTI n1 PUT
END
\>>
\>>
NEXT -1
STEP
\>>